!********************************************************************************************
!       THIS PROGRAM ACCOMPANIES Fried et al (2023)
!
!       "Understanding the Inequality and Welfare Impacts of Carbon Tax Policies"
!
!   This code is used to calibrate the benchmark model
!   This code can be used for the subsistence energy sensitivity analysis
!   If you use this program, I would kindly ask that you cite my paper.
!********************************************************************************************

module parameters_mod
IMPLICIT NONE


INTEGER, parameter :: shocksN=10,kgridN = 155,KgridNegN=30,typesN=2,max_retire_working=35
INTEGER, parameter :: simulationsN=3000,skinkN=5
INTEGER, parameter ::  J=81, Jnr=47,max_tax_loop=1,max_outer_loops=45,max_non_clear=45
INTEGER, parameter :: betaN=1,chiN=3,thetaN=3,lambdaN=3,amultN=1,aN=1,kgridlN=5
INTEGER :: household

DOUBLE PRECISION   :: kgrid(kgridN),epsilon1((Jnr-1),1),alpha1,alpha2,delta,tr,ss_ig(typesN,shocksN/2), sigma1,sigma2,sigma3,sigmay,pe
DOUBLE PRECISION   :: beta,chi,theta,lambda,gamma1,ebar
DOUBLE PRECISION   :: lambdaa,tauss,energy_share,lambdak,ss_cap,adult_equivalence(J)
DOUBLE PRECISION   :: lambda0,lambda1,lambda2,lambda2_1,tauss_ig,tauss1,avg_earnings_scale

END module parameters_mod
